home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 3
/
Gold Medal Software - Volume 3 (Gold Medal) (1994).iso
/
bbsutils
/
q_zz115.arj
/
UNAME100.ARJ
/
UNAME.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1993-12-29
|
3KB
|
191 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Boolean BOOLEAN001
Boolean BOOLEAN002
Boolean BOOLEAN003
Integer INTEGER001
Integer INTEGER002
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
;------------------------------------------------------------------------------
STRING003 = U_Name()
STRING004 = STRING003
BOOLEAN001 = 0
BOOLEAN003 = 0
If (Exist(PPEPath() + "uname.cnf")) Goto LABEL001
Newline
Print "@BEEP@@X0F(UNAME.CNF) NOT FOUND!"
Newline
Goto LABEL011
:LABEL001
STRING006 = "-"
FOpen 1, PPEPath() + "uname.cnf", 0, 0
FGet 1, INTEGER001
While (STRING006 <> "") Do
FGet 1, STRING006
If (STRING006 == STRING003) BOOLEAN003 = 1
EndWhile
FClose 1
If (BOOLEAN003 == 1) Goto LABEL007
If (INTEGER001 > 40) INTEGER001 = 40
STRING007 = INTEGER001
If (Exist(PPEPath() + "ulby.dat")) Goto LABEL002
FAppend 1, PPEPath() + "ulby.dat", 2, 0
FPutLn 1, "SLE"
FPutLn 1, "@X09[@X0FS@X07L@X08e@X09]"
FClose 1
:LABEL002
FOpen 1, PPEPath() + "ulby.dat", 0, 0
:LABEL003
If (Ferr(1)) Goto LABEL004
FGet 1, STRING001
FGet 1, STRING002
If (STRING001 == STRING003) BOOLEAN001 = 1
If (STRING001 == STRING003) STRING004 = STRING002
Goto LABEL003
:LABEL004
FClose 1
:LABEL005
Cls
PrintLn "@X08[@X07UName v1.00@X08]"
Newline
PrintLn " ──────────────────────────────────────────────┐"
PrintLn "@X0F │ @X08│"
PrintLn "@X0F │ C)hange Your Name @X07│"
PrintLn "@X0F @X07│ @X0FQ)uit back to BBS │"
PrintLn " @X08│ @X0F│"
PrintLn "@X01─ ── ───── @X09Current String @X01┐ @X08└─────────────────────────────────────────────"
PrintLn "@X0F @X01└────> @X07Uploaded by@X0F: " + STRING004
Newline
InputStr "@X07Your Choice@X0F: _", STRING005, 15, 1, "CQcq", 8
If (STRING005 == "Q") Goto LABEL008
If (STRING005 == "C") Goto LABEL006
Goto LABEL005
:LABEL006
PrintLn "@CLS@@X07 @X08[@X07Change Your Name now@X08]"
PrintLn "[@X07You only have " + STRING007 + " Chars@X08]"
Newline
Print "@X0F @X08 (@X07"
For INTEGER002 = 1 To INTEGER001
Print Chr(196)
Next
PrintLn "@X08)"
PrintLn "@X07Current@X0F: " + STRING004
Print "@X07Changed@X0F: "
InputStr "_", STRING004, 15, 40, Mask_Ascii() + "íáéó■─═", 64
If (STRING004 <> "") BOOLEAN002 = 1
Goto LABEL005
:LABEL007
Newline
PrintLn "@X0FSorry, You don't have access to this program!"
Newline
Goto LABEL011
:LABEL008
If (BOOLEAN002 == 0) Goto LABEL011
If (BOOLEAN001 == 0) Then
FAppend 1, PPEPath() + "ulby.dat", 2, 0
FPutLn 1, STRING003
FPutLn 1, STRING004
FClose 1
Endif
If (BOOLEAN001 == 1) Then
FOpen 1, PPEPath() + "ulby.dat", 0, 0
FAppend 2, PPEPath() + "uname.@@@", 2, 0
:LABEL009
If (Ferr(1)) Goto LABEL010
FGet 1, STRING001
FGet 1, STRING002
If (STRING001 == STRING003) STRING002 = STRING004
If ((STRING001 <> "") && (STRING002 <> "")) FPutLn 2, STRING001
If ((STRING001 <> "") && (STRING002 <> "")) FPutLn 2, STRING002
Goto LABEL009
:LABEL010
FClose 1
FClose 2
Delete PPEPath() + "ulby.dat"
Rename PPEPath() + "uname.@@@", PPEPath() + "ulby.dat"
Endif
:LABEL011
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 Cls
; 20 Goto
; 14 Let
; 4 Print
; 13 PrintLn
; 20 If
; 3 FOpen
; 3 FAppend
; 6 FClose
; 6 FGet
; 6 FPutLn
; 1 Delete
; 2 InputStr
; 7 Newline
; 1 Rename
;
;
; ■ Functions used :
;
; 17 +
; 10 ==
; 6 <>
; 1 <
; 1 <=
; 1 >
; 2 >=
; 8 !
; 4 &&
; 1 ||
; 2 Ferr()
; 1 Chr()
; 1 U_Name()
; 1 Mask_Ascii()
; 11 PPEPath()
; 2 Exist()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 1 While/EndWhile
; 2 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------